FOCAL* 
lets you 
tame a computer 


LEARN TO USE A COMPUTER AS A SOPHISTICATED 
CALCULATOR IN MINUTES 


In a few minutes you can learn to use a full-scale 
computer for sophisticated calculations. Without 
learning to program, you can do table generation, 
line plots, income taxes and even complex integral 
calculations. FOCAL makes using the computer as 
simple as using a desk calculator. 


LEARN TO WRITE COMPUTER PROGRAMS IN A FEW 
HOURS 


In addition, FOCAL is very flexible. It is the ideal way 
to begin learning to program a computer. FOCAL al- 
lows the student or computer novice to learn to write 
programs using straight-forward commands. FOCAL 
allows him to check his program as he prepares it— 
adding, changing, or deleting. FOCAL will even tell 
him where and how he went wrong if he makes an 
error. 


FOCAL programs will perform more complex calcula- 
tions and repeat tedious problems easily. They will 
instruct the computer to automatically make deci- 
sions and perform tasks based on user input. Plotting, 
calculating, comparing, and formatting—easily writ- 
ten FOCAL programs can even monitor data and con- 
trol experiments. 


FOCAL is the most powerful language available for 
small computers. Unlike any other language, FOCAL 
features 14 functions, automatic error tracing, and 
character editing. Even with all these features, FOCAL 
leaves enough memory to solve 6-level simultaneous 
equations. 


* FOrmula CALculator trademark of Digital Equipment Corporation 


NOW MULTI-USER FOCAL 


Up toseven users can now run FOCAL simultaneously 
on DIGITAL’s PDP-8/I computer. This makes available 
an easy to operate system offering all the advantages 
of FOCAL at the lowest per user cost ever. Schools, 
engineering establishments, research labs, accounting 
firms, or anyplace that used to feel a computer was 
either too expensive or too complicated to program 
can now have a dedicated computer at a fraction of 
comparable costs. 


AS A DESK CALCULATOR 


Sitting at the teletype, simply type: 


FOR ADDITION, SUBTRACTION, 
MULTIPLICATION AND DIVISION 


USER: rvre 25.38 + 12.479 — 4.629 * 4.7 / 1.558 
FOCAL: = + 23.8948 


FOR SINE AND COSINE OF RADIANS 
USER: type rsiIn(1.57) + FCOS(.147) 


FOCAL: — + 1.9892 


FOR SQUARE ROOT 
USER: rvre Fsqr (21.56) 
FOCAL: = + 4.6433 


FOR EXPONENTIATION 
USER:  ryre 2512 


FOCAL: = + 625.9009 


TO COMPUTE 300 FACTORIAL 
USER: ser a=1 


FOR I=1,380; SET A=A*I 
TYPE %, A 


FOCAL: = +9.396951£+615 


It’s that easy, FOCAL prints out the answers in- 
stantly—no programming, no complicated symbols, 
no waiting. FOCAL leaves the user with a detailed 
print out of all his work. 


TO LEARN PROGRAMMING 


Writing programs is an easy step by step process with 
FOCAL. The user numbers each step or text line from 
1.01 to 15.99. The computer then follows the num- 
bered commands after it is given ‘‘GO’’ from the 
user. That’s all, programs can be basic or compli- 
cated. They can all do complex operations and be 
stored on paper tape. 


EUCLIDIAN ALGORITHM FOR GREATEST COMMON 
DIVISOR 


91.01 C EUCLIDIAN ALGORITHMs“FORs“GREATEST COMMON DIVISOR—*$1.19 ASK "THE 
01.29 IF (D—N) 1.3,1.3; SET S=N; SET N=D; SET D=S 

1.30 SET R=N—D*FITR(N/D) ;SET N=D;SET™D—R; IFs“(R) 1.3,1.4,1.3 

@1.40 TYPE * GCD *,%4,N,!! 

* 


THE TWO NUMBERS ARE :544 :5321 GcD = 17 

THE TWO NUMBERS ARE :19 31 «= GcD =_—1 

TO CHANGE THE BASE OF A POSITIVE INTEGER 
91.04 ERASE 


@1.95 ASK "CONVERT",D," FROM BASE",B1," TO BASE",B2, ! 
B1.18 SET I=1 

$1.20 SET E=D/(10T1); SET R2=FITR[ (E+ .60861—FITR(E) ) *19) 
$1.38 SET ANS—ANS+R2*B1 (I-1) ; SET R2=R2*19+ (I-1) 
@1.48 SET D—FITR(D)—FITR(R2) ; 1F (D) 1.5, 1.5, 1.41 
$1.41 SET I=I41; GOTO 1.29 

91.59 SET J=20 

91.62 SET I=ANS 

91.78 SET A=I/B2 

$1.88 SET I=FITR(A) 

$1.98 IF (—A) 1.91, 1.93 

91.91 SET D(J)—(A—I)*B2 

$1.92 SET J=J—1; GOTO 1.7 

$1.93 FOR L=J—26,—1; TYPE 21, D(21-+h) 

91.94 TYPE %,!!!; GOTO 1.94 

USER TYPES "GO" AND FOCAL ASKS A NUMBER, ITS PRESENT 
BASE AND THE DESIRED NEW BASE. 

* 

*GO 

CONVERT:7 FROM BASE:1@ TO BASE:2 

=4l=41=41 


THE SOLUTION OF THE INITIAL CONDITION PROB- 
LEM DESCRIBED BY THE DIFFERENTIAL EQUATION 


d2Xx a 
PT + KeX=0 


FOR A SET OF GIVEN INITIAL VALUES 


61.61 SET N=5; SET C=9 

O1.1@ ASK ?X2 Xl X Kl K2? ! 2DT? fh 
@1.26 SET X2——X*K2+K1*X1 

@1.38 SET X1—X1+-DT*X2 

@1.4@ SET X=X+DT*X1 

@1.58 SET C=C+1 

@1.6@ IF (C/N—FITR(C/N)) 1.78,1.78,1.20 
@1.78 DO 2; GOTO 1.28 


@2.05 IF (X—40) 2.06; TYPE "OFF SCALE", ! ;QUIT 
92.06 IF (—X—2@) 2.18; TYPE “OFF —SCALE", !;QUIT 
@2.18 FOR I= res TYPE = 

92.26 TYPE **", 


USER TYPES "GO" AND FOCAL ASKS FOR INITIAL VALUES 
AND A DESIRED TIME INCREMENT "DT". 


THE OUTPUT IS A PLOT OF POSITION "X" VERSUS TIME "T". 
EACH POINT REPRESENTS FIVE TIME INCREMENTS. 


FOCAL OPERATIONS AND THEIR SYMBOLS 


Exponentiation (7) Multiplication (*) Division (/) 
Addition (+) Subtraction (—) 


Up to two alphanumeric letters are accepted as vari- 
able names and all may be subscripted. Any of the 
following parenthetical pairs may be used. (), [ ], and 
< > nested to any depth. All commands except Write, 
Modify, Quit, and Erase may be combined on the same 
line if separated by a semicolon. 


FOCAL’S FOURTEEN FUNCTIONS 


FSQT( 
FABS( 
FSGN( 
FITR( 
FRAN( 
FEXP( 
FSIN( 
FCOS( 
FATN( 
FLOG( 
FDIS( 
FADC( 
FNEW( 
FCOM( 


Square Root 

Absolute Value 

Sign Part of the Expression 
Integer Part of the Expression 
A Noise Generator 

Natural Base to the Power 
Sine 

Cosine 

Arctangent 

Naperian Log 

Scope Functions 

Analog to Digital Input Function 
User Function 

Storage Function 


FOCAL ERROR DIAGNOSTICS 


Error messages are typed in the following format: 
?nn.nn @nn.nn_ (errorcode @_ line number) 


Code 


Meaning 


200.00 
201.00 
701.40 
201.78 
701.96 
201.:5 

201.;4 

202.32 
202.52 
202.79 
203.05 


203.28 
204.39 
204.52 
204.60 
204.:3 

705.48 
206.06 
706.54 
207.22 


207.38 
207.:9 
207.:6 
208.47 
209.11 
710..:5 
711.35 
220.34 
223.36 
226.99 
228.73 
230.05 
?31.<7 


NOTE: 


Manual Start given from console. 
Interrupt from keyboard via control-C. 
Illegal step or line number used. 
Group number is too large. 
Double periods found in a line number. 
Line number is too large. 
Group zero is an illegal line number. 
Nonexistant Group referenced by ‘DO’. 
Nonexistant Line referenced by ‘DO’. 
Storage was filled by push-down-list. 
Nonexistant line used after ‘GOTO’ 
or ‘IF’. 
Illegal command used. 
Left of ‘“‘="'in error in ‘FOR’ or ‘SET’. 
Excess right terminators encountered. 
Illegal terrhinator in ‘FOR’ command. 
Missing argument in Display command. 
Bad argument to ‘MODIFY’. 
Illegal use of function or number. 
Storage is filled by variables. 
Operator missing in expression or 
double ‘E’. 
No operator used before parenthesis. 
No argument given after function call. 
Illegal function name or double operators. 
Parenthesis do not match. 
Bad argument in ‘ERASE’. 
Storage was filled by text. 
Input buffer has overflowed. 
Logarithm or zero requested. 
Literal number is too large. 
Exponent is too large or negative. 
Division by zero requested. 
Imaginary square roots required. 
Illegal character, unavailable command, 
or unavailable function used. 


The above diagnostics apply only to the version of FOCAL, 1969, issued 


on tape DEC. 


|-AJAE-PB. 


FOCAL COMMAND SUMMARY 


Command Abbr. Example of Form Explanation 
TYPE T TYPE FSQT(AL 3+ FSQT(B)) Evaluates expression, types out —, 
and result in current output format 
TYPE “TEXT STRING"! Types text. Use ! to generate car- 
riage return line feed 
WRITE Ww WRITE ALL Focal prints the entire indirect 
program 
WRITE 1 Focal types out all group 1 lines 
WRITE 1.1 Focal prints line 1.1 
IF | IF (X) 1.2,1.3,1.4; Where X is identifier or expression 


Control Is transferred to the first, second, or third line number If (X) Is less 
than, equal to, or greater than zero respectively. If the semicolon is encoun- 
tered prematurely then the remainder of the line is executed. 


MODIFY M MODIFY 1.15 Enables editing of characters on 


fine 1.15 


The next character typed becomes the search character. FOCAL will then 
position itself after the search character; then the user may: 


1) type new text, or 

2) push form-feed to go to the next occurrence, or 
3) push bell to change the search character, or 

4) push rubout to delete backwards, or 

5) push left arrow to kill backwards, or 

6) push carriage return to end the line, or 

7) push line-feed to save the rest of the line. 

Quit Q Quit Returns contro! to user 

RETURN R RETURN Terminates DO subroutines 

SET s SET A=5/B*SCALE(3) Substitution statement 

ASK A ASK ALPHA(I + 2*J) Focal types a colon for each vari- 
able; the user types a value to de- 
fie each variable. 

COMMENT C COMMENT lf a line begins with the letter C, 

CONTINUE C c the remainder of the line will be 
ignored. 

Do 1) DO 4.14 Execute line 4.14; return 

DO 4 Execute all group 4 lines, return 
when group is expended or when a 
RETURN is encountered. 

DO ALL Execute entire indirect text as a 
subroutine. 

ERASE E ERASE Erases the symbol table. 

ERASE 2 Erases all group 2 lines. 
ERASE 2.1 Deletes line 2.1 
ERASE ALL Deletes all user text. 

FOR IF FOR |=x,y,z; TYPE | The command string following the 
semicolon is executed for each 
value. x,y,z are constants, vari- 
ables, or expressions. x = initial 
value of | y = value added to | 
until | is greater than z. y is as- 
sumed = 1 if omitted. 

GO G iets) Starts indirect program at lowest 
numbered line number. 

GOTO G GOTO 3.4 Starts indirect program at line 3.4 

GO? GO? Traces indirect program until an 
error is encountered. 

*LINK L “Call Name” Types octal bounds of indirect pro- 

XXXX START Text gram and transfers to 7600 to link 
XXXX END Text up with Disk Monitor or 8 Lib Sys 


XXXX END Variables 
XXXX END Free Core 


FOCAL 


a new conversational language 
developed by Digital Equipment Corporation 
for its PDP-8 family of small computers 


APPLICATIONS 


Computer aided instruction 
Trigonometric problems 

Numbers systems and base conversion 
Geometric design 

Factor analysis 

Binomial expansions 

Statistics 

Single or multi-function plotting 

Linear algebra (simultaneous equations, matrices etc.) 
Differential equations 

Table generation 

Simulation 

Least squares fit 

Eigenvalues 

Digital filter design 

Closed circuit traverse analysis 
Measurement units conversion 

Data monitoring 

Compound interest 

Stocks and bonds analysis 

Decision theory 

Budgeting 

Scope and plotter output, and A/D input 
Many others 
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